home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / tpex.arj / WRTLNDMO.PAS < prev   
Pascal/Delphi Source File  |  1993-09-02  |  813b  |  27 lines
  1. {
  2. Learning to program in Turbo Pascal 6.0.
  3. This is on formatting output with WRITELN.
  4. By Robert E. Wade          09-02-1993
  5. }
  6.  
  7.  
  8. PROGRAM JustForFun;
  9.  
  10. USES Crt, Printer;
  11.  
  12. CONST     Spc = ' ';
  13.           c1 = 10;              { Column 1 width }
  14.           c2 = 10;              { Column 2 width }
  15.           c3 = 10;              { Column 3 width }
  16.  
  17. VAR       Age:    BYTE;         { Stores users age }
  18.           Sal:    REAL;         { Stores users salary }
  19.  
  20. BEGIN
  21.    CLRSCR;
  22.    WRITELN( 'Age':c1, Spc:5, 'Salary ':c2);      { Creates column headers }
  23.    WRITELN( '---':c1, Spc:5, '--------':c2);     { Underlines column headers }
  24.    Age := 30;                                    { Initialize variables }
  25.    Sal := 23000;
  26.    WRITELN( Age:c1, Spc:5, Sal:c2:2);            { Display data }
  27. END.